home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_GEO.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  1.4 KB  |  40 lines
  1. Unit spx_geo;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses spx_vga,spx_fnc;
  9.  
  10. type
  11.   Pmorph     = ^Tmorph;
  12.   Tmorph     = object
  13.                  gofsx,gofsy,
  14.                  gv_width,gv_height : byte;
  15.                  gmx,gmy,gsx,gsy,
  16.                  hvx,hvy,
  17.                  smapx,smapy        : integer;
  18.          yaccum,xaccum,
  19.                  yinc,xinc          : word;
  20.                  constructor init(geomx,geomy,six,siy,gvw,gvh,scrx,scry:integer);
  21.                  destructor done; virtual;
  22.                  function geomap(x,y:integer):integer;virtual;
  23.                  procedure drawmap(vx,vy:integer);virtual;
  24.                  procedure placegeo(x,y,geonum,cx,cy:integer);virtual;
  25.                  procedure nogogeo(x,y,cx,cy:integer);virtual;
  26.                  procedure pre_map; virtual;
  27.                  procedure post_map; virtual;
  28.          procedure yaccumulator(inital:boolean;at:integer);virtual;
  29.          procedure xaccumulator(inital:boolean;at:integer);virtual;
  30.                end;
  31.   PHexMorph = ^THexMorph;
  32.   THexMorph = object(Tmorph)
  33.                  oddy,oddx,eveny,evenx : integer;
  34.                  constructor init(geomx,geomy,six,siy,gvw,gvh,scrx,scry:integer);
  35.                  procedure drawmap(vx,vy:integer);virtual;
  36.                end;
  37.  
  38. function loadGMP(f:string;var piclist,map):integer;
  39.  
  40.